home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d8
/
qns310.arc
/
Q-FINISH.SCR
< prev
next >
Wrap
Text File
|
1991-04-28
|
1KB
|
27 lines
;┌──────────────────────────────────────────────────────────────────────────┐
;│ Q-FINISH.SCR Copyright 1988-1990 by Rik Brown │
;│ │
;│ Clean up after mail run │
;└──────────────────────────────────────────────────────────────────────────┘
EXIST $maildir\SUCCESS.RCV MAILDL_OK
DOS "if exist $maildir\$mailDL del $maildir\$mailDL"
; Delete partial mail download that may unpack w/o message pointer reset
GOTO MAILDL_CLEANUP
MAILDL_OK:
DOS "if exist $maildir\SUCCESS.RCV $maildate" ; <- OPTIONAL
; This runs QTIME.EXE which creates a PCB NEWS(G) informing users when the
; last mail transfer was made. No batch file is supplied so you may wish
; to delete the above DOS command from your script!
MAILDL_CLEANUP:
DOS "if exist $maildir\success.* del $maildir\success.*"
; Clear success indicators for the next time the script is run.
SYSTEM Y ; Return to DOS and continue EVENT